home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / boosters.arc / OVERSTR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1980-01-01  |  2.3 KB  |  86 lines
  1. { --------------------------------------------
  2.   OVERSTR overlays and pads target string with
  3.   new string
  4.   -------------------------------------------- }
  5.   Function OVERSTR ( NEW, TARGET : AnyString;
  6.                           N, LEN : Integer;
  7.                              PAD : Char) : AnyString;
  8.  
  9. {                    NEW overlays TARGET beginning at position N of
  10.                      TARGET, for a length of LEN.  If LEN exceeds the
  11.                      length of NEW, NEW is padded on the right with
  12.                      PAD.   If N exceeds the length of TARGET, left-
  13.                      padding occurs before NEW is written. }
  14. begin
  15.    InLine ( $1E/
  16.             $8C/$D0/
  17.             $8E/$C0/
  18.             $8E/$D8/
  19.             $8A/$4E/$0A/
  20.             $30/$ED/
  21.             $8D/$76/$0B/
  22.             $8D/$BE/$0B/$02/
  23.             $FC/
  24.             $F3/$A4/
  25.             $8A/$5E/$0A/
  26.             $30/$FF/
  27.             $8B/$4E/$06/
  28.             $83/$F9/$00/
  29.             $7C/$71/
  30.             $8B/$56/$08/
  31.             $83/$FA/$00/
  32.             $7C/$69/
  33.             $8D/$BE/$0B/$02/
  34.             $39/$DA/
  35.             $76/$30/
  36.             $81/$FA/$00/$FF/
  37.             $76/$03/
  38.             $BA/$00/$01/
  39.             $8B/$CA/
  40.             $29/$D9/
  41.             $49/
  42.             $8B/$46/$04/
  43.             $01/$DF/
  44.             $F3/$AA/
  45.             $8D/$BE/$0B/$02/
  46.             $8B/$4E/$06/
  47.             $01/$D1/
  48.             $81/$F9/$FF/$00/
  49.             $77/$06/
  50.             $8B/$4E/$06/
  51.             $EB/$07/$90/
  52.             $B9/$FF/$00/
  53.             $29/$D1/
  54.             $41/
  55.             $8A/$86/$0A/$01/
  56.             $30/$E4/
  57.             $51/
  58.             $39/$C1/
  59.             $72/$02/
  60.             $8B/$C8/
  61.             $8D/$B6/$0B/$01/
  62.             $01/$D7/
  63.             $4F/
  64.             $F3/$A4/
  65.             $59/
  66.             $39/$C1/
  67.             $76/$16/
  68.             $01/$D0/
  69.             $3D/$FF/$00/
  70.             $73/$0F/
  71.             $51/
  72.             $8A/$86/$0A/$01/
  73.             $30/$E4/
  74.             $29/$C1/
  75.             $8B/$46/$04/
  76.             $F3/$AA/
  77.             $59/
  78.             $8D/$8E/$0B/$02/
  79.             $29/$CF/
  80.             $39/$DF/
  81.             $77/$02/
  82.             $8B/$FB/
  83.             $8B/$C7/
  84.             $88/$86/$0A/$02/
  85.             $1F/$5D);
  86. end;